home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 98 / 098.d81 / marketplace 98 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  862b  |  32 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 7 dimw$(300)
  3. 10 poke53281,0:poke53280,0:print""
  4. 12 sys57812"inp/cm ce00",dv,0:poke780,0:poke781,0:poke782,206:sys65493
  5. 16 sys52736,"ordform 98",dv
  6. 18 h=peek(252)*256+peek(251)
  7. 100 print"[147][158]      [211] [213] [205] [205] [197] [210]   [211] [193] [214] [201] [206] [199] [211]
  8. 102 [153]"               (NULL)(NULL)str$val(NULL) asc(NULL)(NULL)(NULL)
  9. 104 print"         1  [154][208]rint order form
  10. 106 [153]"         2  cont(NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  11. 110 geta$:ifa$<"1"ora$>"2"then110
  12. 112 ifa$="2"then300
  13. 120 print"[159]   [211]et your printer at the top of a
  14. 130 [153]"    page and press a key.
  15. 135 geta$:ifa$=""then135
  16. 140 open4,4,7:close4
  17. 150 ifst=0then200
  18. 160 poke214,16:print:print"[150] [212][213][210][206] [217][207][213][210] [208][210][201][206][212][197][210] [207][206] and press a key."
  19. 170 geta$:ifa$=""then170
  20. 180 goto100
  21. 200 open4,4,7
  22. 210 fori=0toh
  23. 220 print#4,w$(i)
  24. 230 next:close4
  25. 240 goto100
  26. 300 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  27. 310 ifer<>63thenend
  28. 320 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  29. 330 print"run"
  30. 340 poke631,13:poke632,13:poke198,2:end
  31. 10000 open15,8,15,"s0:marketplace 98":close15:save"marketplace 98",8:end
  32.